home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / LISP Related / U. Mass AI & LISP Tools / MODULES / DACTN / DACTN-Demo.lisp < prev    next >
Encoding:
Text File  |  1990-06-24  |  1.9 KB  |  66 lines  |  [TEXT/CCL ]
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;; DACTN Demo (very simple).  Dan Suthers 24-Jun-90 23:47:13       
  3.  
  4. (in-package "DACTN")
  5.  
  6. (DACTN DEMO-DACTN
  7.  :NODES             
  8.  ((user::bye (:action da-say-bye) (lambda (node) (declare (ignore node)) nil)
  9.   (:state nil) ((default :exit )))
  10.  (user::silent (:action da-silent) (lambda (node) (declare (ignore node)) nil)
  11.   (:state nil) ((default :goto user::bye)))
  12.  (user::beep (:action da-beep) (lambda (node) (declare (ignore node)) nil)
  13.   (:state nil) ((default :goto user::bye)))
  14.  (user::hi (:action da-say-hi) (lambda (node) (declare (ignore node)) nil)
  15.   (:state nil) ((dt-play-beep? :goto user::beep) (default :goto user::silent))))
  16.  :START-NODE        user::hi
  17.  :TYPE              nil
  18.  :COMMENTS          "")
  19.  
  20. (DACTN-ACTION DA-BEEP
  21.  :FORM              (lambda (args) (ccl:ed-beep))
  22.  :TYPE              nil
  23.  :INFO              nil
  24.  :COMMENTS          "")
  25.  
  26. (DACTN-ACTION DA-SAY-BYE
  27.  :FORM              (lambda (args) (message-dialogue "Bye!"))
  28.  :TYPE              nil
  29.  :INFO              nil
  30.  :COMMENTS          "")
  31.  
  32. (DACTN-ACTION DA-SAY-HI
  33.  :FORM              
  34.  (lambda (args)
  35.   (message-dialogue "Hi!  This is a very simple DACTN that
  36. doesn't do recursive invocation or use
  37. DACTN states. "))
  38.  :TYPE              nil
  39.  :INFO              nil
  40.  :COMMENTS          "")
  41.  
  42. (DACTN-ACTION DA-SILENT
  43.  :FORM              (lambda (args) nil)
  44.  :TYPE              nil
  45.  :INFO              nil
  46.  :COMMENTS          "")
  47.  
  48. (DACTN-TEST DEFAULT
  49.  :FORM              (lambda (state) t)
  50.  :TYPE              nil
  51.  :INFO              nil
  52.  :COMMENTS          "")
  53.  
  54. (DACTN-TEST DT-PLAY-BEEP?
  55.  :FORM              (lambda (state) (y-or-n-dialogue "Wanna hear a beep?"))
  56.  :TYPE              nil
  57.  :INFO              nil
  58.  :COMMENTS          "")
  59.  
  60. (setf *trace-dactns* t)
  61. (graph-dactn 'DEMO-DACTN)
  62. (interpret-dactn 'demo-dactn)
  63.  
  64. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  65. ;;; EOF
  66.